perm filename LOSS.LAP[NEW,LSP] blob sn#490242 filedate 1980-01-03 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002
C00003 00003	
C00004 ENDMK
CāŠ—;

'(THIS IS THE LAP FOR ((DSK (NEW LSP)) LOSS /2)) 
'(COMPILED BY LISP COMPILER /905 COMAUX /9 PHAS1 /34 MAKLAP /50 INITIA /64) 

;COMPILED ON JANUARY 3, 1980, AT 12:51 PM

(LAP LOSER SUBR) 
(ARGS LOSER (()  . 2)) 
(HLRZ 3 @ (SPECIAL N)) 
(MOVEM 3 (SPECIAL O)) 
(HRRZ 4 0 1) 
(MOVEM 4 (SPECIAL M)) 
(HRRZ 1 0 2) 
(MOVEM 1 (SPECIAL N)) 
(POPJ P) 
()